TFileDrag Component - Adds support for dropping files from explorer onto a a Delphi form. Version 1.02 Copyright (c) 1996, 1997 - Erik C. Nielsen ( ErikNielsen@compuserve.com ) All Rights Reserved ( Erik_Nielsen@PattersonDental.Com ) **** Changes from V 1.1 **** 1. Added the DropPoint property, which allows you to retrieve the mouse coordinates where the files were dropped. **** Changes from V 1.0 **** 1. Fixed several minor bugs, including not setting the enabled property properly in the constructor. 2. Removed the separate string lists for full name, file name, and extension. Replaced with just one list with full name. I had forgotten about the Delphi functions ExtractFileExt and ExtractFileName which will get the extension and name portions for you. **************************** I. Installation 1. Copy FILEDRAG.PAS and FILEDRAG.DCR into a directory. 2. In Delphi, select Component - Install menu option. 3. Select Add... button 4. Select Browse 5. Select filedrag.pas in the directory from step 1 6. Select OK The component library will now re-compile, and when it is finished you should have a TFileDrag component on your System tab. II. Using To be able to drop files from the explorer onto your app: 1. Place a TFileDrag component on your form 2. Add a handler for the OnDrop event 3. Enable dropping by changing EnableDrop to TRUE in the property manager or in your code somewhere. 4. Run your app and drag some files from the explorer. Files is a string list that contains the fully qualified file name of each file dropped on the application. Use the library functions ExtractFileName and ExtractFileExt to get only the file name or extension. FileCount is a read-only property that contains the number of files dropped. See the example program for a demo of how to use this component. III. Legal Junk This component is provided as Free-Ware. You can use it however you like, but you may not sell it as a Delphi component or as part of a Delphi component collection. If you have problems/bugs/requested features, e-mail me and I will try to address them, but I can't make any guarantees.